home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / t3script.arc / TIME.SLT < prev    next >
Encoding:
Text File  |  1990-04-14  |  1.2 KB  |  42 lines
  1. /////////////////////////////////////////////////////////////////////////
  2. //             TIME.SLT  -  by Terry Robertson (October 1988)          //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //  This script puts the current time in the bottom left hand corner   //
  6. //  of the screen; in the "status bar" if you've got it set to row     //
  7. //  24. Unfortunately it doesn't update automatically - you will need  //
  8. //  to run the script whenever you want the current time.              //
  9. //                                                                     //
  10. //  This script is most useful when it is "attached" to a function     //
  11. //  key.                                                               //
  12. //                                                                     //
  13. /////////////////////////////////////////////////////////////////////////
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21. str tm[16];
  22. str tim[16] = "│";
  23. str help[] = "│ HELP=F7 ";
  24.  
  25.  
  26. Main()
  27.  
  28. {
  29. int     xpos, ypos;
  30.  
  31. time(curtime(), tm);
  32. delchrs(tm, 5, 3);
  33. strcat(tim, tm);
  34. strcat(tim, help);
  35.  
  36. xpos = getx();
  37. ypos = gety();
  38. pstraxy(tim, 0, 24, 31);
  39. gotoxy(xpos, ypos);
  40.  
  41. }
  42.